#!/usr/bin/clisp

(defun upper-file (file)
    (with-open-file (in file)
        (do ((line (read-line in nil 'eof)
                   (read-line in nil 'eof)))
            ((eql line 'eof))
            (format t "~a~%" (string-upcase line)))))

(dolist (file ext:*args*)
    (upper-file file))

